if abs(slope)<1
    conex=slope;
    coney=-1;
else
    conex=-1;
    coney=1/slope;
end

cl=line([conex;-conex],[coney; -coney]);